Public Sub test_all_case()
    ' 测试: 检查空栈
    Test_isEmptyObjStack
    ' 测试: 检查空栈
    Test_isEmptyPrimitiveStack
End Sub

' 测试: 检查空栈
Private Sub Test_isEmptyObjStack()
    Dim s As ObjStack
    Dim result As Boolean

    result = UtilsStack.isEmptyObjStack(s)
    Debug.Assert result = true

    Set s = New ObjStack
    result = UtilsStack.isEmptyObjStack(s)
    Debug.Assert result = true

    Dim c As Collection
    Set c = New Collection
    s.push c
    result = UtilsStack.isEmptyObjStack(s)
    Debug.Assert result = false
End Sub

' 测试: 检查空栈
Private Sub Test_isEmptyPrimitiveStack()
    Dim s As PrimitiveStack
    Dim result As Boolean

    result = UtilsStack.isEmptyPrimitiveStack(s)
    Debug.Assert result = true

    Set s = New PrimitiveStack
    result = UtilsStack.isEmptyPrimitiveStack(s)
    Debug.Assert result = true

    s.push "xxxx"
    result = UtilsStack.isEmptyPrimitiveStack(s)
    Debug.Assert result = false
End Sub